clear all
R=150;
U=5;
Uc=0;
Ur=5;
T=1e-3;
C=50e-6;

kmax=100;

for k = 1:kmax
 Uc=(U*T+R*C*Uc)/(R*C+T);   
  Ur=U-Uc;
  Ucmas(k)=Uc;
 end    
plot(1:kmax,Ucmas);    